home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win2K Explorer Remote Computers 1.xpl < prev    next >
Text File  |  2002-01-04  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Network\Explorer"
  6. "NAME"="Remote Computers Special Folders"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="000101"
  9. "TEXT 1"="Show "Printers" when viewing Network Computers"
  10. "TEXT 2"="Show "Scheduled Tasks" when viewing Network Computers"
  11. "DESCRIPTION 1"="If you view a remote computer using Explorer (e.g. from Network Neighborhood), you will see the shares configured on that computer plus two special items "Printers" and "Scheduled Tasks"."
  12. "DESCRIPTION 2"="Basically, this is a good idea but there is also a little delay until Windows has queried the other computer for the status of these special folders."
  13. "DESCRIPTION 3"="If you do not need these special folders, you can simply turn them off and thus having the display appear quickly because Windows does not need to query the other computer for those special folders."
  14. "VERSION"="1.01"
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sP1="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}"
  22. sP1_Name="HKCR\CLSID\{2227A280-3AEA-1069-A2DE-08002B30309D}\@"
  23.  
  24. sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  25. sP2_Name="HKCR\CLSID\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}\@"
  26.  
  27. SUB Plugin_Initialize
  28. ' s=RegReadValue(sP1)
  29. ' debugmsg s
  30.  
  31.  if RegPathExists(sP1) then
  32.     Call SetUIElement(1,true)
  33.  end if
  34.  
  35.  if RegPathExists(sP2) then
  36.     Call SetUIElement(2,true)
  37.  end if
  38. END SUB
  39.  
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  if GetUIElement(1)=true then
  42.     if RegPathExists(sP1)=false then
  43.        sName=RegReadValue(sP1_Name)
  44.        Call RegWriteValue(sP1 & "\@",sName,1)
  45.     end if
  46.  else
  47.     If RegPathExists(sP1) then 
  48.        Call RegDeletePath(sP1)
  49.     end if
  50.  end if
  51.  
  52.  if GetUIElement(2)=true then
  53.     if RegPathExists(sP2)=false then
  54.        sName=RegReadValue(sP2_Name)
  55.        Call RegWriteValue(sP2 & "\@",sName,1)
  56.     end if
  57.  else
  58.     If RegPathExists(sP2) then 
  59.        Call RegDeletePath(sP2)
  60.     end if
  61.  end if
  62.  
  63.  
  64. END SUB
  65.  
  66. SUB Plugin_Terminate
  67. END SUB
  68.